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ZSBTTL ‘Required file for MESSAGE source modules’ 


Ss 
win 


: Require file for all modules in the message compiler 
: Version: *v04-000' 


See e RARER RARER H EE EH EEE AHEHAAAEAAAEREKEEAEREKEeeeeeeAeeeeeeeeeeeeeeeeeenese 
' 


ie COPYRIGHT (c) 1978 1980 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 

® 

® 

* 

* 

® 

t* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND ad A ® 
'* ONLY IN ACCORDANCE WITH THE ts OF rats” LICENSE a A A HE * 
!* INCLUSION OF TH Ne ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
Hd COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERESY * 
* 

® 

® 

® 

® 

® 

+ 

* 

® 

e 

® 


83333333333 


tt TRANSFERRED. 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT 
:: eeePOhat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ICE 
ENT 


i eeeerereererereeerererereeeetererereeeteteeeeeeeeeneeeeeeeeerererereeeeeeet 
‘ee 

i FACILITY: MESSAGE compiler 

i ABSTRACT: 


This is the common require file for all modules in the 
message compiler. 


i ENVIRONMENT: 


VAX/VMS sporet tng 8 gine Wortetioges user mode utility, 
operates at non-AST leve 


i AUTHOR: Tim Halvorsen, Nov 1979 
i MODIFIED BY: 
| 


v03-002 GJA0052 Greg Awdziewicz 23-Nov-1983 
Add size literal and field definitions for the queue of input 
file specifications. 
Add subtitles. 
Add error code for parsefail. 


v03-001 Buseves Benn Schreiber Apr r-1982 
Do not require MSGDEF as it is now in staaie and LIB 
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ZSBTTL ‘Internal definitions’ 
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Define message structure definitions 


REQUIRE *LIBS:MSGINT.B32'; 


! Message compiler internal definitions 


TSBTTL "Required file for MESSAGE source modules’ 


Define fields for the queue element for an input filename and 


define a Literal for size of the element: 


FIELD 
info_queve_fids = 
SET 


! 
Define VMS block structures 


STRUCTURE 
bblock Co, p, s, e; nj = 


n 
(bblock+o)<p,s,e>; 
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queue _flink = 0, 0, $s: 0), ' Forward Link for queue. 
queuve_blink = 4, 0, 32, 0), ' Backward Link. 
name_desc = 8, 0, 0, 0) ' Descriptor for filename: 
fRame_length = fs, 6, 16, 0), i ... length subfield, 
oe name_addr = (12, 6, 38, OF | 23: address subfield. 
LITERAL 
queue_element_size= 16; ! Total (byte)size of queue element. 


jigc6~et 2S SS ee i eet eS See or ae 12 ee a Sa eta : ] 
F 
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SSHR_MESSAGES = a macro which defines facility-specific message codes 
which are based on the system-wide shared message codes. 


SSHR_MESSAGES( name, code, (msg,severity), ... ) 


i] 


“code"’ is the eacvespene rns facility code ey 103) Bo 
"msg’' is the name of the shared message (e. » BEGIN) 
“severity’’ is the desired message severity e.9., te Oy 8) 


=) 
oO 
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"SSHR_ MESSAGES ( FACILITY_NAME, FACILITY_CODE ) = 
SHRSMSG_IDS( FACILITY_NAME, FACILITY_CODE, Z%REMAINING ); %, 


SHRSMSG_IDS( FACILITY_NAME, FACILITY_CODE) C VALUE ) = 
SHRSMSG_CALC( FACILITY NAME, FACILITY cope. SREMOVE (VALUE) ) %, 


SHRSMSG_CALC( FACILITY NAME, FACILITY. CODE, MSG ID, SEVERITY ) 
ZNARE (FACILITY NAME, 'S ' MSG ID = INARE (’ SARS _ "MSG_ID) + FACILITY. CODE*65536 + 
LIF LOECLARED NAME STSSK , SEVER IT 
XTHEN ZNAME('STSSK_' “SEV ERI 


| 

where 
*name"’ is the name of the fog tt ity ce-8.- COPY) 
ZELSE SEVERITY 2FI°% 
| 
| 
| 
| 
| 
| 
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' 
; Equated symbols | 


LITERAL 
true s 3. ' Boolean true 
false = 9. ' Boolean false 
ok s i; ' Success return code 


: Define CLI qualifier flags (see cli_flags) 
LITERAL 
SEQULST (QUAL_,,0,1, 

(Listing,J, ! /LISTING qualifier present 
‘seie t,), ' /OBJECT qualifier present 
‘file,), ' /FILE qualifier present 
mdl,5, ' /MDL qualifier present 
.sdl,), ! /SDL qualifier present 
Cinput,), : input arameter present 
(symbols.), ! /SYMBOLS qualifier present 
(text,)); ! /TEXT qualifier present 
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: Define message codes. 


Sshr_messages(msg,151, 
(syntax,severe), 
(openin,error), 
(openout ,severe), 
(readerr,severe), 
(closedel error) 
(parsefail error) 
(searchfail,error), 
(writeerr,error), 


CRO 
emsg(ident) = 
BEGIN 
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Syntax error 

Unable to access input 
Unable to access output 
Error reading input fil 
Unable to close input f 
Error perenre file spec 
Error searching for fil 
Error writing file 


@e —..--® ~~ 


Z1F NOT pe gs ther A *, ident 


ZTHEN EXTERNAL LITE 


ZNAME ('msg$_', ident) 
ENDZ; 


ZSBTTL °° 


)) 
AC £NAME('msg$_', ident); %F1 


AH-BT13A-SE 
VAX/VMS V4.0 
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